home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / sliders.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-05-14  |  908 b   |  43 lines
  1. G4C
  2.  
  3. WinBig -1 -1 250 160 "Sliders.gc"
  4. WinType 11110001
  5. usetopaz
  6.  
  7. BOX 0 0 0 0 OUT RIDGE
  8.  
  9. xonLoad 
  10.     GuiOpen Sliders.gc
  11.  
  12. xonClose
  13.     GuiQuit Sliders.gc
  14.  
  15. Text 70 6 100 12 'Two Sliders' 14 BOX
  16. Text 30 134 200 12 'Yes, they are linked,' 22 NOBOX
  17. Text 30 144 200 12 '    just for fun.' 18 NOBOX
  18.  
  19. ; ---- A vertical slider
  20. ;      The arguments  ( C = Current ; S = ShowString )
  21. ;         L  T  W  H    Title     Var   Min Max C   S
  22. ;         |  |  |  |      |        |     |   |  |   |
  23. xVSlider 110 36 28 70 'Vertical' vslide  0  100 50 %ld%
  24.     gadid 1
  25.  
  26.     ; ---- The value of vslide is doubled, and the horizontal slider
  27.     ;      is adjusted to match.
  28.     s == $vslide * 2
  29.     update Sliders.gc 2 $s
  30.  
  31.  
  32. ; ---- A horizontal slider
  33. xHSlider 58 120 140 10 'Hor' hslide 0 200 100 %ld%
  34.     gadid 2
  35.  
  36.     ; ---- The value of hslide is halved, and the vertical slider
  37.     ;      is adjusted to match.
  38.     s == $hslide / 2
  39.     update Sliders.gc 1 $s
  40.  
  41.  
  42.  
  43.